home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 1 / ETO Development Tools 1.iso / Essentials / MacApp Documentation / MacApp AppleLink Messages / MacApp.Tech$ 11⁄10⁄89 / 0037-ICellSelectCommand F-Nov89 < prev    next >
Encoding:
Text File  |  1989-11-10  |  1.4 KB  |  58 lines  |  [TEXT/GEOL]
  1. Item forwarded  by  A33          to A34
  2.  
  3. Item    2948190                         5-Nov-89        16:00
  4.  
  5. From:   ALLSTAR                         All Star Computer, L Goldman,PRT
  6.  
  7. To:     MACAPP.TECH$                    MacApp Technical
  8.  
  9. cc:     MACAPP.TEST                     MacApp SQA Team
  10.  
  11. Sub:    ICellSelectCommand Failures
  12.  
  13. Curtis and Geoff:
  14.  
  15. I think a failure handler _is_ required by this method. In applying the MacApp
  16. initialization convention, if MakeNewRgn failed, the object should free itself.
  17.  
  18. Check this out:
  19.  
  20. PROCEDURE TCellSelectCommand.ICellSelectCommand(itsView: TGridView;
  21. theShiftKey, theCmdKey: BOOLEAN);
  22.  
  23.     VAR             {ƒƒƒ Start - Suggested by C. Faith}
  24.         fi : FailInfo;
  25.  
  26.     PROCEDURE HdlFailure(error: INTEGER; message: LONGINT);
  27.         BEGIN
  28.         Free;
  29.         END;             {ƒƒƒ Finish}
  30.  
  31.    BEGIN
  32.    fPrevSelection := NIL;    {ƒƒƒ}
  33.    fThisSelection := NIL;    {ƒƒƒ}
  34.  
  35.    ICommand(0, NIL, itsView, itsView.GetScroller(FALSE));
  36.    fCanUndo := FALSE;
  37.    fCausesChange := FALSE;
  38.    fViewConstrain := FALSE;
  39.  
  40.    fShiftKey := theShiftKey;
  41.    fCmdKey := theCmdKey;
  42.    fGridView := itsView;
  43.    fPrevCell.h := - 1;
  44.  
  45.    CatchFailures(fi, HdlFailure);  {ƒƒƒ}
  46.    fPrevSelection := MakeNewRgn;
  47.    CopyRgn(fGridView.fSelections, fPrevSelection);
  48.    fThisSelection := fGridView.fHLRegion;
  49.    SetEmptyRgn(fThisSelection);
  50.    fDifference := MakeNewRgn;
  51.    Success(fi);{ƒƒƒ}
  52.    END;
  53.  
  54. Please correct me if I'm incorrect.
  55.  
  56. Larry Goldman
  57.  
  58.